home *** CD-ROM | disk | FTP | other *** search
/ SVM Mac CD-ROM 7 / SVM Mac CD-ROM - No 07.iso / Apple Expo VR / Apple Expo 95ƒ / MAIN.Dxr / 00021_Movie Script 1- initialisation, start et stop.ls < prev    next >
Encoding:
Text File  |  1995-09-24  |  10.8 KB  |  138 lines
  1. on initTemp
  2.   global gFrameScript, gPathName, gPanoMovieID2, gPanoMovieID, gOldAmb
  3.   OpenPanoMovie(gPathName & "films:Apex", 48, 1)
  4.   OpenPanoMovie2(gPathName & "films:plan", 47, 0)
  5.   set gFrameScript to "PanoFrameScript 48"
  6. end
  7.  
  8. on startMovie
  9.   global gNode, gFrameScript, gOldAmb, swingFlag, gCurMode, gPanoMovieID, gPanoMovieID2, gNavMovieID, gPathName, gLastTimeRollover, gPanoFrame, gQTVRCallBackFactory
  10.   set the exitLock to 1
  11.   set the textFont of field "ProductName" to "Palatino"
  12.   set gOldAmb to EMPTY
  13.   set gCurMode to EMPTY
  14.   initListes()
  15.   set gNode to 1
  16.   set gFrameScript to "nothing"
  17.   set gPathName to the pathName
  18.   SetProperty("puppet", 9, 11, 1)
  19.   set the visible of sprite 39 to 0
  20.   set gPanoMovieID to EMPTY
  21.   set gPanoMovieID2 to EMPTY
  22.   set gNavMovieID to EMPTY
  23.   set gLastTimeRollover to 0
  24.   set gLastTimeRollover2 to 0
  25.   set gPanoFrame to EMPTY
  26.   openXLib("QuickTime VR XCMDs")
  27.   RegisterComponent(the pathName & "QuickTime VR Components", EMPTY)
  28.   set gQTVRCallBackFactory to CallBackTracer(mnew)
  29.   setCallBack(#PanoMovie, gQTVRCallBackFactory)
  30. end
  31.  
  32. on stopMovie
  33.   global gQTVRCallBackFactory
  34.   put " " into field "ProductName"
  35.   put " " into field "objectText"
  36.   ClosePanoMovie()
  37.   ClosePlanMovie()
  38.   CloseNavMovie()
  39.   closeXLib("QuickTime VR XCMDs")
  40.   if objectp(gQTVRCallBackFactory) then
  41.     gQTVRCallBackFactory(mdispose)
  42.   end if
  43. end
  44.  
  45. on initListes
  46.   global gHotSpotInfo, gSoundInfo, gPlanHSInfo
  47.   set hotSpot46 to [#prodName: "Apple Assistance, (1) 69 29 29 29", #fileName: "dialaa", #node: 30, #hPan: 323.125, #vPan: -21.76500000000000057, #zoom: 29, #hsType: "snd "]
  48.   set hotSpot5 to [#prodName: "Les Guignols : le jeu", #fileName: "Guignols", #node: 31, #hPan: 323.125, #vPan: -21.76500000000000057, #zoom: 29, #hsType: "snd "]
  49.   set hotSpot10 to [#prodName: "Powerbook 5300", #fileName: "D2", #node: 31, #hPan: 7.52400000000000002, #vPan: -10.42800000000000082, #zoom: 19.99899999999999878, #hsType: "navg"]
  50.   set hotSpot13 to [#prodName: "Technologie QuickTime VR", #fileName: "Photomaton", #node: 32, #hPan: 323.125, #vPan: -21.76500000000000057, #zoom: 29, #hsType: "txte"]
  51.   set hotSpot12 to [#prodName: "Newton Message Pad 120", #fileName: "Newton", #node: 37, #hPan: 112.57999999999999829, #vPan: -24.01200000000000045, #zoom: 26, #hsType: "stil"]
  52.   set hotSpot14 to [#prodName: "Mission Handicaps", #fileName: "Mission", #node: 32, #hPan: 66.96399999999999864, #vPan: -18.4220000000000006, #zoom: 26, #hsType: "txte"]
  53.   set hotSpot16 to [#prodName: "Power Macintosh 7500", #fileName: "PPC7500", #node: 37, #hPan: 129.10900000000000887, #vPan: -20.29799999999999827, #zoom: 19.99899999999999878, #hsType: "navg"]
  54.   set hotSpot20 to [#prodName: "Les bonnes adresses", #fileName: "adresses", #node: 36, #hPan: 6.65000000000000036, #vPan: -12.57900000000000063, #zoom: 44, #hsType: "txte"]
  55.   set hotSpot9 to [#prodName: "Apple Workgroup Servers", #fileName: "aws9150", #node: 37, #hPan: 316.71100000000001273, #vPan: -16.19099999999999895, #zoom: 21.99899999999999878, #hsType: "stil"]
  56.   set hotSpot15 to [#prodName: "Power Macintosh 8500", #fileName: "PPC8500", #node: 37, #hPan: 320.625, #vPan: -12.4659999999999993, #zoom: 29, #hsType: "navg"]
  57.   set hotSpot7 to [#prodName: "Macintosh Performa", #fileName: "PERFORMA", #node: 37, #hPan: 21.19900000000000162, #vPan: -20.20799999999999841, #zoom: 15.11500000000000021, #hsType: "still"]
  58.   set hotSpot11 to [#prodName: "Moniteur 17' Apple", #fileName: "M17", #node: 37, #hPan: 267.36599999999998545, #vPan: -4.39400000000000013, #zoom: 19.99899999999999878, #hsType: "navg"]
  59.   set hotSpot8 to [#prodName: "Moniteur 15' Apple", #fileName: "M15", #node: 37, #hPan: 299.99099999999998545, #vPan: -13.08799999999999919, #zoom: 19.99899999999999878, #hsType: "navg"]
  60.   set hotSpot17 to [#prodName: "¬†", #fileName: "Musique", #node: 38, #hPan: 289.41899999999998272, #vPan: -14.88899999999999935, #zoom: 19.99899999999999878, #hsType: "snd "]
  61.   set hotSpot18 to [#prodName: "¬†", #fileName: "jeux", #node: 38, #hPan: 109.53700000000000614, #vPan: -4.71499999999999986, #zoom: 19.99899999999999878, #hsType: "snd "]
  62.   set hotSpot19 to [#prodName: "Enseignement & Recherche", #fileName: "Education", #node: 40, #hPan: 157.64400000000000546, #vPan: -12.10699999999999932, #zoom: 26, #hsType: "txte"]
  63.   set hotSpot13 to [#prodName: "Technologie QuickTime VR", #fileName: "Photomaton", #node: 40, #hPan: 323.125, #vPan: -21.76500000000000057, #zoom: 29, #hsType: "navg"]
  64.   set hotSpot25 to [#prodName: "Outils Multim√©dia", #fileName: "OutilsMM", #node: 20, #hPan: 296.57699999999999818, #vPan: -23.36899999999999977, #zoom: 16.99899999999999878, #hsType: "txte"]
  65.   set hotSpot22 to [#prodName: "Exemple d'objet VR", #fileName: "PPC7500", #node: 20, #hPan: 129.10900000000000887, #vPan: -20.29799999999999827, #zoom: 19.99899999999999878, #hsType: "navg"]
  66.   set hotSpot24 to [#prodName: "Exemple d'objet VR", #fileName: "M15", #node: 20, #hPan: 299.99099999999998545, #vPan: -13.08799999999999919, #zoom: 19.99899999999999878, #hsType: "navg"]
  67.   set hotSpot23 to [#prodName: "Exemple d'objet VR", #fileName: "E23D", #node: 20, #hPan: 340.78699999999997772, #vPan: -6.75300000000000011, #zoom: 26, #hsType: "stil"]
  68.   set hotSpot26 to [#prodName: "Troph√©es Apple 1995", #fileName: "Troph√©es", #node: 21, #hPan: 303.12000000000000455, #vPan: -7.09299999999999997, #zoom: 26, #hsType: "txte"]
  69.   set hotSpot27 to [#prodName: "Mac OS", #fileName: "MacOS", #node: 22, #hPan: 342.39999999999997726, #vPan: -13.09999999999999964, #zoom: 23, #hsType: "stil"]
  70.   set hotSpot21 to [#prodName: "Service de Presse Apple France : 69 86 34 00", #fileName: "dialACF", #node: 23, #hPan: 342.39999999999997726, #vPan: -13.09999999999999964, #zoom: 23, #hsType: "snd "]
  71.   set hotSpot28 to [#prodName: "√Ä votre sant√© !", #fileName: "champ", #node: 23, #hPan: 342.39999999999997726, #vPan: -13.09999999999999964, #zoom: 23, #hsType: "snd "]
  72.   set hotSpot30 to [#prodName: "¬†", #fileName: "kbd1", #node: 13, #hPan: 342.39999999999997726, #vPan: -13.09999999999999964, #zoom: 23, #hsType: "snd "]
  73.   set hotSpot31 to [#prodName: "¬†", #fileName: "kbd2", #node: 13, #hPan: 342.39999999999997726, #vPan: -13.09999999999999964, #zoom: 23, #hsType: "snd "]
  74.   set hotSpot32 to [#prodName: "¬†", #fileName: "kbd3", #node: 13, #hPan: 342.39999999999997726, #vPan: -13.09999999999999964, #zoom: 23, #hsType: "snd "]
  75.   set hotSpot33 to [#prodName: "Apple Internet Serveur", #fileName: "internet", #node: 12, #hPan: 342.39999999999997726, #vPan: -13.09999999999999964, #zoom: 23, #hsType: "stil"]
  76.   set hotSpot34 to [#prodName: "Newton Message Pad 120", #fileName: "Newton", #node: 12, #hPan: 112.57999999999999829, #vPan: -24.01200000000000045, #zoom: 26, #hsType: "stil"]
  77.   set hotSpot35 to [#prodName: "Newton Message Pad 120", #fileName: "Newton", #node: 10, #hPan: 112.57999999999999829, #vPan: -24.01200000000000045, #zoom: 26, #hsType: "stil"]
  78.   set hotSpot45 to [#prodName: "Nikon E2", #fileName: "E2S", #node: 84, #hPan: 134.64599999999998658, #vPan: -25.80000000000000071, #zoom: 14, #hsType: "navg"]
  79.   set hotSpot37 to [#prodName: "Nikon E2", #fileName: "E2VR", #node: 72, #hPan: 232.59999999999999432, #vPan: -9.59999999999999964, #zoom: 26, #hsType: "navg"]
  80.   set hotSpot40 to [#prodName: "Le CNIT trois heures du matin‚Ķ", #fileName: "Equipe", #node: 84, #hPan: 203.05099999999998772, #vPan: -28.42899999999999849, #zoom: 23, #hsType: "txte"]
  81.   set hotSpot41 to [#prodName: "Brieuc Segalen", #fileName: "Apple", #node: 84, #hPan: 203.05099999999998772, #vPan: -28.42899999999999849, #zoom: 23, #hsType: "txte"]
  82.   set hotSpot42 to [#prodName: "Denis Gillier", #fileName: "leLab", #node: 84, #hPan: 203.05099999999998772, #vPan: -28.42899999999999849, #zoom: 23, #hsType: "txte"]
  83.   set hotSpot43 to [#prodName: "Arnauld Boulard", #fileName: "leLab", #node: 84, #hPan: 203.05099999999998772, #vPan: -28.42899999999999849, #zoom: 23, #hsType: "txte"]
  84.   set hotSpot44 to [#prodName: "Denis Gliksman", #fileName: "DenisG", #node: 84, #hPan: 203.05099999999998772, #vPan: -28.42899999999999849, #zoom: 23, #hsType: "txte"]
  85.   set gHotSpotInfo to [5: hotSpot5, 7: hotSpot7, 8: hotSpot8, 9: hotSpot9, 10: hotSpot10, 11: hotSpot11, 12: hotSpot12, 13: hotSpot13, 14: hotSpot14, 15: hotSpot15, 16: hotSpot16, 17: hotSpot17, 18: hotSpot18, 19: hotSpot19, 20: hotSpot20, 21: hotSpot21, 22: hotSpot22, 23: hotSpot23, 24: hotSpot24, 25: hotSpot25, 26: hotSpot26, 27: hotSpot27, 28: hotSpot28, 30: hotSpot30, 31: hotSpot31, 32: hotSpot32, 33: hotSpot33, 34: hotSpot34, 35: hotSpot35, 45: hotSpot45, 37: hotSpot37, 40: hotSpot40, 41: hotSpot41, 42: hotSpot42, 43: hotSpot43, 44: hotSpot44, 46: hotSpot46]
  86.   set sound1 to [#amb: "vent", #mix: EMPTY]
  87.   set sound2 to [#amb: "vent", #mix: EMPTY]
  88.   set sound3 to [#amb: "foule2", #mix: "vx"]
  89.   set sound5 to [#amb: "foule2", #mix: "v5"]
  90.   set sound12 to [#amb: "foule2", #mix: "v12"]
  91.   set sound20 to [#amb: "foule2", #mix: "vvr"]
  92.   set sound21 to [#amb: "foule2", #mix: "ann1"]
  93.   set sound53 to [#amb: "foule2", #mix: EMPTY]
  94.   set sound13 to [#amb: EMPTY, #mix: "music"]
  95.   set sound30 to [#amb: "foule2", #mix: EMPTY]
  96.   set sound31 to [#amb: "foule2", #mix: "V31"]
  97.   set sound33 to [#amb: "foule2", #mix: "EWORLD"]
  98.   set sound34 to [#amb: EMPTY, #mix: "ann1"]
  99.   set sound38 to [#amb: "foule2", #mix: "v38"]
  100.   set sound39 to [#amb: "foule2", #mix: "momes"]
  101.   set sound50 to [#amb: "parking", #mix: "chichi"]
  102.   set sound51 to [#amb: "silence", #mix: EMPTY]
  103.   set sound83 to [#amb: EMPTY, #mix: "V30"]
  104.   set sound84 to [#amb: "silence", #mix: EMPTY]
  105.   set gSoundInfo to [1: sound1, 2: sound2, 3: sound3, 5: sound5, 12: sound12, 13: sound13, 20: sound20, 21: sound21, 30: sound30, 31: sound31, 33: sound33, 34: sound34, 38: sound38, 39: sound39, 50: sound50, 51: sound51, 53: sound53, 83: sound83, 84: sound84]
  106.   set planHS16 to [#prodName: "vers le palier", #node: 5]
  107.   set planHS18 to [#prodName: "vers CyberWorld", #node: 30]
  108.   set planHS20 to [#prodName: "vers Famille Macintosh", #node: 31]
  109.   set planHS22 to [#prodName: "vers Education", #node: 32]
  110.   set planHS24 to [#prodName: "vers Mac OS et Technologies", #node: 22]
  111.   set planHS26 to [#prodName: "vers Communication et Entreprise", #node: 12]
  112.   set planHS28 to [#prodName: "vers Musique professionnelle", #node: 13]
  113.   set planHS30 to [#prodName: "vers l'√©cole Macintosh", #node: 35]
  114.   set planHS32 to [#prodName: "vers Presse VIP", #node: 23]
  115.   set planHS34 to [#prodName: "vers Musique et Jeux", #node: 38]
  116.   set planHS36 to [#prodName: "vers Le coin des petits", #node: 70]
  117.   set gPlanHSInfo to [16: planHS16, 18: planHS18, 20: planHS20, 22: planHS22, 24: planHS24, 26: planHS26, 28: planHS28, 30: planHS30, 32: planHS32, 34: planHS34, 36: planHS36]
  118. end
  119.  
  120. on keyDown
  121.   if (the commandDown = 1) and (the key = "q") then
  122.     byebye()
  123.   end if
  124.   if (integer(the key) > 0) and (integer(thekey) < 8) then
  125.     set the soundLevel to integer(the key)
  126.   end if
  127.   if the key = "0" then
  128.     set the soundLevel to 0
  129.   end if
  130. end
  131.  
  132. on byebye
  133.   cursor(200)
  134.   cursor(-1)
  135.   SetProperty("puppet", 16, 19, 0)
  136.   go("end")
  137. end
  138.